﻿Namespace Data

    Public Class Forecast

        Private _unitTemperature As String
        Private _unitDistance As String
        Private _unitSpeed As String
        Private _unitPrecipitation As String
        Private _unitPresure As String
        Private _location As String
        Private _lastUpdate As DateTime
        Private _days As List(Of ForecastDay)

        Public Property UnitTemperature() As String
            Get
                Return _unitTemperature
            End Get
            Set(ByVal value As String)
                _unitTemperature = value
            End Set
        End Property

        Public Property UnitDistance() As String
            Get
                Return _unitDistance
            End Get
            Set(ByVal value As String)
                _unitDistance = value
            End Set
        End Property

        Public Property UnitSpeed() As String
            Get
                Return _unitSpeed
            End Get
            Set(ByVal value As String)
                _unitSpeed = value
            End Set
        End Property

        Public Property UnitPrecipitation() As String
            Get
                Return _unitPrecipitation
            End Get
            Set(ByVal value As String)
                _unitPrecipitation = value
            End Set
        End Property

        Public Property UnitPresure() As String
            Get
                Return _unitPresure
            End Get
            Set(ByVal value As String)
                _unitPresure = value
            End Set
        End Property

        Public Property Location() As String
            Get
                Return _location
            End Get
            Set(ByVal value As String)
                _location = value
            End Set
        End Property

        Public Property LastUpdate() As DateTime
            Get
                Return _lastUpdate
            End Get
            Set(ByVal value As DateTime)
                _lastUpdate = value
            End Set
        End Property

        Public Property Days() As List(Of ForecastDay)
            Get
                Return _days
            End Get
            Set(ByVal value As List(Of ForecastDay))
                _days = value
            End Set
        End Property

        Public Sub New()
            Me.Days = New List(Of ForecastDay)
        End Sub

    End Class

End Namespace